Trafico en el puerto de Avilés de Fertilizantes y Materias Primas

Nos centramos en esta ocasión en el tráfico portuario de exportación de las empresas de Avilés: Fertiberia y Chemastur, tanto de fertilizantes como de las materias primas necesarias para su fabricación
Author

José Ramón Cuesta

Published

May 26, 2025

En este post vamos a analizar el tráfico de mercancias en el puerto de Avilés en lo referente a los fertilizantes y sus materias primas. En el caso de las materias primas las más importantes son el ácido sulfúrico y el amoniaco. En otros post hemos comentado que tanto a Fertiberia como a Chemastur el ácido sulfúrico se lo suministra AZSA en camiones cisterna, y como además Fertiberia dispone de un depósito en el puerto de Avilés de ácido sulfúrico para garantizar la disonibilidad de esta materia prima en todo momento.

Podemos empezar por ver las mercancias que entran o salen del puerto de Avilés y crear un vector con aquellas que estan relacionadas con los fertilizantes y sus materias primas.

Las mercancías relacionadas con los fertilizantes y sus materias primas son: ácido sulfúrico, amoniaco, abono, GSSP in bulk, superfosfatos, sulfato amónico y rock phosphate.

Antes de generar el vector de las mercancias relacionadas con fertilizantes, vemos que tenemos algunas mercancias que son la misma pero con distinto nombre, por lo que vamos a cambiar ROCK PHOSPHATE por FOSFATO DE ROCA. Aprovechamos también para corregir otros errores ortográficos y actualizar la base de datos.

library(tidyverse)
load("puerto_aviles_17.RData")
puerto_aviles_17 <- puerto_aviles_17 %>%
  mutate(Mercancia = str_replace_all(Mercancia, "ROCK PHOSPHATE", "FOSFATO DE ROCA")) %>%
  mutate(Mercancia = str_replace_all(Mercancia, "CONCENTADOS DE ZINC", "CONCENTRADOS DE ZINC"))

Ahora creamos el vector:

fert_mps <- c("ACIDO SULFURICO", "AMONIACO", "ABONO", "GSSP IN BULK", "SUPERFOSFATOS", "SULFATO AMONICO", "FOSFATO DE ROCA", "FERTILIZANTES")

Ahora vamos a trabajar con los datos de 2024 para ver el tráfico de las mercancias que que hemos seleccionado en este vector:

puerto_aviles_17 %>% 
  filter(`Fecha Entrada` >= as.Date("2024-01-01") & `Fecha Entrada` <= as.Date("2024-12-31")) %>%
  filter(Mercancia %in% fert_mps) %>%
  group_by(Mercancia, Operación) %>%
  summarise(Tonelaje = sum(Tonelaje, na.rm = TRUE), .groups = "drop") %>%
  ggplot(aes(x = Mercancia, y = Tonelaje, fill = Operación)) +
  geom_bar(stat = "identity", position = "dodge") +
  coord_flip() +
  labs(title = "Tráfico de Fertilizantes y Materias Primas en el Puerto de Avilés (2024)",
       x = "Mercancía",
       y = "Tonelaje",
       fill = "Operación") +
  theme_minimal()

Exportaciones de Abonos y Fertilizantes

  • Abono

Podemos centrarnos en el Abono y comprobar cuantas toneladas se han embarcado y con que destinos:

puerto_aviles_17 %>% 
  filter(`Fecha Entrada` >= as.Date("2024-01-01") & `Fecha Entrada` <= as.Date("2024-12-31")) %>%
  filter(Mercancia == "ABONO") %>%
  group_by(Pais_dest) %>%
  summarise(Tonelaje = sum(Tonelaje, na.rm = TRUE), .groups = "drop") %>%
  arrange(desc(Tonelaje)) %>%
  ggplot(aes(x = reorder(Pais_dest, Tonelaje), y = Tonelaje)) +
  geom_col(fill = "steelblue") +
  coord_flip() +
  labs(title = "Tonelaje de Abono embarcado en Puerto de Avilés (2024)",
       x = "País de destino",
       y = "Tonelaje")

Cual ha sido el tonelaje total embarcado de abono en 2024:

puerto_aviles_17 %>% 
  filter(`Fecha Entrada` >= as.Date("2024-01-01") & `Fecha Entrada` <= as.Date("2024-12-31")) %>%
  filter(Mercancia == "ABONO") %>%
  summarise(Tonelaje_total = sum(Tonelaje, na.rm = TRUE))
# A tibble: 1 × 1
  Tonelaje_total
           <dbl>
1         272654

Vemos que ha habido algunos desembarques de abono, vamos a ver cuantos y de donde han venido:

puerto_aviles_17 %>% 
  filter(`Fecha Entrada` >= as.Date("2024-01-01") & `Fecha Entrada` <= as.Date("2024-12-31")) %>%
  filter(Mercancia == "ABONO") %>%
  filter(Operación == "Desembarque") %>%
  count(Origen, Tonelaje)
# A tibble: 2 × 3
  Origen  Tonelaje     n
  <fct>      <dbl> <int>
1 CADIZ       5000     1
2 SETUBAL     6000     1
  • GSSP IN BULK
puerto_aviles_17 %>% 
  filter(`Fecha Entrada` >= as.Date("2024-01-01") & `Fecha Entrada` <= as.Date("2024-12-31")) %>%
  filter(Mercancia == "GSSP IN BULK") %>%
  filter(Operación == "Embarque") %>%
  group_by(Pais_dest) %>%
  summarise(Tonelaje = sum(Tonelaje, na.rm = TRUE), .groups = "drop") %>%
  arrange(desc(Tonelaje))
# A tibble: 1 × 2
  Pais_dest Tonelaje
  <fct>        <dbl>
1 BRASIL       27000
  • SUPERFOSFATOS
puerto_aviles_17 %>% 
  filter(`Fecha Entrada` >= as.Date("2024-01-01") & `Fecha Entrada` <= as.Date("2024-12-31")) %>%
  filter(Mercancia == "SUPERFOSFATOS") %>%
  filter(Operación == "Embarque") %>%
  group_by(Pais_dest) %>%
  summarise(Tonelaje = sum(Tonelaje, na.rm = TRUE), .groups = "drop") %>%
  arrange(desc(Tonelaje))
# A tibble: 4 × 2
  Pais_dest      Tonelaje
  <fct>             <dbl>
1 ESTADOS UNIDOS     5300
2 FRANCIA            5200
3 PAISES BAJOS       4000
4 INGLATERRA         1930
  • SULFATO AMONICO
puerto_aviles_17 %>% 
  filter(`Fecha Entrada` >= as.Date("2024-01-01") & `Fecha Entrada` <= as.Date("2024-12-31")) %>%
  filter(Mercancia == "SULFATO AMONICO") %>%
  filter(Operación == "Embarque") %>%
  group_by(Pais_dest) %>%
  summarise(Tonelaje = sum(Tonelaje, na.rm = TRUE), .groups = "drop") %>%
  arrange(desc(Tonelaje))
# A tibble: 1 × 2
  Pais_dest  Tonelaje
  <fct>         <dbl>
1 INGLATERRA      500
  • FERTILIZANTES
puerto_aviles_17 %>% 
  filter(`Fecha Entrada` >= as.Date("2024-01-01") & `Fecha Entrada` <= as.Date("2024-12-31")) %>%
  filter(Mercancia == "FERTILIZANTES") %>%
  filter(Operación == "Embarque") %>%
  group_by(Pais_dest) %>%
  summarise(Tonelaje = sum(Tonelaje, na.rm = TRUE), .groups = "drop") %>%
  arrange(desc(Tonelaje))
# A tibble: 1 × 2
  Pais_dest Tonelaje
  <fct>        <dbl>
1 BRASIL       38500
  • ÁCIDO SULFÚRICO
puerto_aviles_17 %>% 
  filter(`Fecha Entrada` >= as.Date("2024-01-01") & `Fecha Entrada` <= as.Date("2024-12-31")) %>%
  filter(Mercancia == "ACIDO SULFURICO") %>%
  filter(Operación == "Embarque") %>%
  group_by(Pais_dest) %>%
  summarise(Tonelaje = sum(Tonelaje, na.rm = TRUE), .groups = "drop") %>%
  arrange(desc(Tonelaje))
# A tibble: 6 × 2
  Pais_dest      Tonelaje
  <fct>             <dbl>
1 ESTADOS UNIDOS    77400
2 ESPAÑA            71000
3 MARRUECOS         65507
4 ITALIA             7000
5 IRLANDA            4400
6 FRANCIA            3675

Importaciones de materias primas

Vamos a ver las importaciones de materias primas necesarias par la fabricación de los fertilizantes.

  • AMONIACO
puerto_aviles_17 %>% 
  filter(`Fecha Entrada` >= as.Date("2024-01-01") & `Fecha Entrada` <= as.Date("2024-12-31")) %>%
  filter(Mercancia == "AMONIACO") %>%
  filter(Operación == "Desembarque") %>%
  group_by(Pais_orig) %>%
  summarise(Tonelaje = sum(Tonelaje, na.rm = TRUE), .groups = "drop") %>%
  arrange(desc(Tonelaje))
# A tibble: 8 × 2
  Pais_orig      Tonelaje
  <chr>             <dbl>
1 ESPAÑA          102281.
2 PORTUGAL         25000.
3 MARRUECOS         7500 
4 TURQUÍA           6000 
5 ESTADOS UNIDOS    5500 
6 EGIPTO            4500 
7 BELGICA           4000 
8 PAISES BAJOS      3500
  • FOSFATO DE ROCA
puerto_aviles_17 %>% 
  filter(`Fecha Entrada` >= as.Date("2024-01-01") & `Fecha Entrada` <= as.Date("2024-12-31")) %>%
  filter(Mercancia == "FOSFATO DE ROCA") %>%
  filter(Operación == "Desembarque") %>%
  group_by(Pais_orig) %>%
  summarise(Tonelaje = sum(Tonelaje, na.rm = TRUE), .groups = "drop") %>%
  arrange(desc(Tonelaje))
# A tibble: 2 × 2
  Pais_orig Tonelaje
  <chr>        <dbl>
1 MARRUECOS    93682
2 EGIPTO        9550

Generamos una tabla a modo de resumen de las operaciones de embarque y desembarque de fertilizantes y materias primas en el puerto de Avilés durante 2024:

Producto Operación Destino / Origen Tonelaje
Abono Embarque Paises europeos 272.654
Ácido Sulfúrico Embarque Africa, Europa,USA 228.982
Super Fosfatos Embarque USA y Europa 16.430
GSP in Bulk Embarque Brasil 27.000
Fertilizantes Embarque Brasil 38.500
Sulfato Amónico Embarque Inglaterra 500
Amoniaco Desembarque Africa, Europa,USA 158.281
Fosfato de Roca Desembarque Africa 103.232